﻿Public Class frmLlenar_Empresas
    Private empresas As New cEmpresas
    Private Llenar_Datos As New cDatos_Fijos
    Private Sub frmLlenar_Empresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim resultado As DataSet

        resultado = Llenar_Datos.Cargar("Ti")
        cboTipo_Identificacion.DataSource = resultado.Tables(0)
        'cboTipo_Identificacion.DisplayMember = "codigo_tipo_identificacion" & "-" & "nombre_tipo_identificacion"
        cboTipo_Identificacion.DisplayMember = "codigo"

        resultado = Llenar_Datos.Cargar("Dpto")
        cboDepartamento.DataSource = resultado.Tables(0)
        'cboTipo_Identificacion.DisplayMember = "codigo_tipo_identificacion" & "-" & "nombre_tipo_identificacion"
        cboDepartamento.DisplayMember = "Nombre_departamento"

       

    End Sub

    Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnviar.Click
        empresas.Codigo_Empresa = Mid(cboTipo_Identificacion.Text, 1, 2) & txtNumero_Identificacion.Text
        empresas.Codigo_Tipo_Identificacion = Mid(cboTipo_Identificacion.Text, 1, 2)
        empresas.Numero_Identificacion = txtNumero_Identificacion.Text
        empresas.Razon_Social = txtRazonSocial.Text
        empresas.Direccion = txtDireccion.Text
        empresas.Telefono = txtTelefono.Text
        empresas.Email = txtEmail.Text
        empresas.Pagina_Web = txtPaginaWeb.Text
        empresas.Codigo_Municipio = Llenar_Datos.Codigo(cboDepartamento.Text, "Dpto") & Llenar_Datos.Codigo(cboMunicipio.Text, "Mcipio")
        empresas.Guardar()
        Close()
    End Sub

    
    Private Sub cmdEnviar_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEnviar.TextChanged

    End Sub

    Private Sub cboDepartamento_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDepartamento.TextChanged
        Dim resultado As DataSet

        Llenar_Datos.Codigo_Departamento(Llenar_Datos.Codigo(cboDepartamento.Text, "Dpto"))

        resultado = Llenar_Datos.Cargar("Mcipio")
        cboMunicipio.DataSource = resultado.Tables(0)
        'cboTipo_Identificacion.DisplayMember = "codigo_tipo_identificacion" & "-" & "nombre_tipo_identificacion"
        cboMunicipio.DisplayMember = "Nombre_Municipio"

        
    End Sub

    
End Class